home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs03.d81 / cad.sfx / boot (.txt) < prev    next >
Commodore BASIC  |  1990-02-12  |  3KB  |  90 lines
  1. 10 ONAGOTO120,140,160
  2. 20 D0=PEEK(186):D1=9+(D0=9):POKE53280,11:POKE53281,14:REM D1=D0 FOR ONE DRIVE
  3. 30 PRINTCHR$(14);"[147]";SPC(10)"[212]HE [195][193][196] [211]YSTEM [214]2.2[196]":PRINTSPC(19)"BY"
  4. 40 PRINTSPC(13)"[211]TEPHEN [208]. [206]YE":PRINTSPC(11)"[195]OPYRIGHT ([195]) 1984"
  5. 50 PRINT"[198]ILES ARE ON WHICH DRIVE ?";:GOSUB400
  6. 60 IFVAL(A$)>7THEND1=VAL(A$):POKE36863,D1:PRINTD1
  7. 70 PRINT:PRINT"[212]HANKS TO THE FOLLOWING FOR THEIR"
  8. 80 PRINT"CONTRIBUTIONS TO THIS SYSTEM:"
  9. 90 PRINT"[199]EORGE [199]AUKEL "
  10. 100 PRINT"[194]ETTY [203]NIGHT     [215]AYNE [211]CHMIDT"
  11. 110 A=1:LOAD"USRPKG",D0,1
  12. 120 PRINT"[210]OBERT [207]NDA      [194]RENT [196]ANE"
  13. 130 A=2:LOAD"SYSPKG",D0,1
  14. 140 PRINT"[199]UY [205]OLINARI                    "
  15. 150 A=3:LOAD"SYSPKGII",D0,1
  16. 160 POKE36862,D0:POKE36863,D1:PRINT:PRINT" [197]RASE THE PRESENT SCREEN ? "
  17. 170 GOSUB400
  18. 180 REM BO IS BORDER COLOR
  19. 190 REM FC IS FOREGROUND COLOR
  20. 200 REM BC IS BACKGROUND COLOR
  21. 210 REM CU IS CURSOR COLOR
  22. 220 REM SF IS THE CURSOR SPEED
  23. 230 REM SS IS SUPERSPEED VALUE(SPEED 0)
  24. 240 POKE785,0:POKE786,193:BO=11:FC=01:BC=14:CU=00:SF=6:SS=25:PRINT"[147]"
  25. 250 A=USR(9),16384:A=USR(7),BO:A=USR(0),1,7,14:A=USR(1):A=USR(16):A=USR(5),FC,BC
  26. 260 A=USR(6),0,BC:A=USR(6),1,1:A=USR(19):A=USR(21)
  27. 270 IFA$="Y"THENA=USR(3),0:SYS36867:A=USR(3),0
  28. 280 A=USR(35),0,CU:A=USR(35),1,CU:A=USR(35),2,CU:A=USR(35),3,CU
  29. 290 A=USR(35),6,CU:A=USR(35),7,CU:A=USR(39),0,16:A=USR(39),1,17:A=USR(39),2,17
  30. 300 A=USR(39),3,17:A=USR(39),6,22:A=USR(39),7,23:X=72:Y=137:A=USR(34),X,Y,0
  31. 310 FORN=0TO62:READA:POKE17408+N,A:NEXT:REM SPRITEMAP 0
  32. 320 FORN=0TO62:READA:POKE17472+N,A:NEXT:REM SPRITEMAP 1
  33. 330 FORN=0TO62:READA:POKE17536+N,A:NEXT:REM SPRITEMAP 2
  34. 340 FORN=0TO62:READA:POKE17600+N,A:NEXT:REM SPRITEMAP 3
  35. 350 FORN=0TO62:READA:POKE17664+N,A:NEXT:REM SPRITEMAP 4
  36. 360 FORN=0TO62:READA:POKE17728+N,A:NEXT:REM SPRITEMAP 5
  37. 370 FORN=0TO62:READA:POKE17792+N,A:NEXT:REM SPRITEMAP 6
  38. 380 FORN=0TO62:READA:POKE17856+N,A:NEXT:REM SPRITEMAP 7
  39. 390 GETA$:LOAD"CMND",D0
  40. 400 GETA$:IFA$=""THEN400
  41. 410 RETURN
  42. 420 REM SPRITEMAP 0
  43. 430 DATA0,0,0,0,8,0,0,8,0,0,8,0,0,8,0
  44. 440 DATA0,8,0,0,8,0,0,8,0,0,8,0,0,0,0
  45. 450 DATA127,227,255,0,0,0,0,8,0,0,8,0,0,8,0
  46. 460 DATA0,8,0,0,8,0,0,8,0,0,8,0,0,8,0
  47. 470 DATA0,0,0
  48. 480 REM SPRITEMAP 1
  49. 490 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  50. 500 DATA0,0,0,0,0,0,0,0,0,0,8,0,0,8,0
  51. 510 DATA0,54,0,0,8,0,0,8,0,0,0,0,0,0,0
  52. 520 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  53. 530 DATA0,0,0
  54. 540 REM SPRITEMAP 2
  55. 550 DATA0,0,0,0,8,0,0,8,0,0,8,0,0,8,0
  56. 560 DATA0,8,0,0,8,0,0,8,0,0,8,4,0,0,6
  57. 570 DATA127,227,255,0,0,6,0,8,4,0,8,0,0,8,0
  58. 580 DATA0,8,0,0,8,0,0,8,0,0,8,0,0,8,0
  59. 590 DATA0,0,0
  60. 600 REM SPRITEMAP 3
  61. 610 DATA0,0,0,0,8,0,0,28,0,0,62,0,0,8,0
  62. 620 DATA0,8,0,0,8,0,0,8,0,0,8,0,0,0,0
  63. 630 DATA127,227,255,0,0,0,0,8,0,0,8,0,0,8,0
  64. 640 DATA0,8,0,0,8,0,0,8,0,0,8,0,0,8,0
  65. 650 DATA0,0,0
  66. 660 REM SPRITEMAP 4
  67. 670 DATA0,0,0,0,8,0,0,8,0,0,8,0,0,8,0
  68. 680 DATA0,8,0,0,8,0,0,8,0,16,8,0,48,0,0
  69. 690 DATA127,227,255,48,0,0,16,8,0,0,8,0,0,8,0
  70. 700 DATA0,8,0,0,8,0,0,8,0,0,8,0,0,8,0
  71. 710 DATA0,0,0
  72. 720 REM SPRITEMAP 5
  73. 730 DATA0,0,0,0,8,0,0,8,0,0,8,0,0,8,0
  74. 740 DATA0,8,0,0,8,0,0,8,0,0,8,0,0,0,0
  75. 750 DATA127,227,255,0,0,0,0,8,0,0,8,0,0,8,0
  76. 760 DATA0,8,0,0,8,0,0,62,0,0,28,0,0,8,0
  77. 770 DATA0,0,0
  78. 780 REM SPRITEMAP 6
  79. 790 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  80. 800 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  81. 810 DATA0,255,224,0,0,0,0,0,0,0,0,0,0,0,0
  82. 820 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  83. 830 DATA0,0,0
  84. 840 REM SPRITEMAP 7
  85. 850 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  86. 860 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,8,0
  87. 870 DATA0,8,0,0,8,0,0,8,0,0,8,0,0,8,0
  88. 880 DATA0,8,0,0,8,0,0,8,0,0,8,0,0,8,0
  89. 890 DATA0,8,0
  90.